﻿Public Partial Class OverviewRoles
    Inherits BaseUserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            Rebind()
        End If
    End Sub

    Public Overrides Sub Rebind()
        Try
            ApplicationName.Text = "Application Name: " & Utility.GetString(Roles.ApplicationName)
            CacheRolesInCookie.Text = "Cache Roles In Cookie: " & Utility.GetString(Roles.CacheRolesInCookie)
            CookieName.Text = "Cookie Name: " & Utility.GetString(Roles.CookieName)
            CookiePath.Text = "Cookie Path: " & Utility.GetString(Roles.CookiePath)
            CookieProtectionValue.Text = "Cookie Protection Value: " & Utility.GetString(Roles.CookieProtectionValue)
            CookieRequireSSL.Text = "Cookie Require SSL: " & Utility.GetString(Roles.CookieRequireSSL)
            CookieSlidingExpiration.Text = "Cookie Sliding Expiration: " & Utility.GetString(Roles.CookieSlidingExpiration)
            CookieTimeout.Text = "Cookie Timeout: " & Utility.GetString(Roles.CookieTimeout)
            CreatePersistentCookie.Text = "Create Persistent Cookie: " & Utility.GetString(Roles.CreatePersistentCookie)
            Domain.Text = "Domain: " & Utility.GetString(Roles.Domain)
            Enabled.Text = "Enabled: " & Utility.GetString(Roles.Enabled)
            MaxCachedResults.Text = "Max Cached Results: " & Utility.GetString(Roles.MaxCachedResults)
            Description.Text = "Description :" & Roles.Provider.Description
        Catch ex As Exception
            Me.RaiseError(ex)
        End Try
    End Sub

    Private Sub Page_OnUpdate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.OnUpdate
        Rebind()
    End Sub

End Class